100 CLR:X=PEEK(48):IF(X>=8)THEN130
110 SYS8704
120 CLR:PRINT"[147]";:NEW
130 X=PEEK(44):IF(X>=16)THEN150
140 SYS3614:GOTO120
150 SYS5635:GOTO120